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EDTSSCRRLIN = refresh a screen Line 1B-be0-1984 91:30:68 Pee untaalt eRe 


ets *EDTSSCRR ym - refresh a screen Line’ 
MODULE EDTSSCRALIN ! Refresh a sc rege Line 
Dent = 'v04-000' ' File: SCRRL 
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oene4 Page 1 
C SRCJSCRRLIN.BLI;1 (1) 


ne 
IN.BLI Edit: REM1034 
BEGIN 
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'@ * 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ‘ 
ie ALL RIGHTS RESERVED. ‘ 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED « 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. ‘ 
ie THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE * 
if AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. e 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
is SOFTWARE ON EQUIPMENT WHICH 1S N ‘ 
ie ® 
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NOT SUPPLIED BY DIGITAL. 
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i ABSTRACT: 
This module refreshes a single Line on the screen. 


i ENVIRONMENT: Runs at any access mode - AST reentrant 
i AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 
i MODIFIED BY: 


i 1-001 = Original. DJS 12-Feb-1981 This module was created b 

' oxtrocting the routine EDT TS$8c es from module SCREEN. 
1-008 : Change, £ Ea} to user se tag accion STS 06-Oct-1981 

i 72 before auciting the blob at 


wn —O Oe 


- x 7 mre lute cursor posit 
ne, to fe" running off the edge of the screen. 
it ohey y che bio ob goby if the a. "eusieas the screen 


5 = Show etaters 4 ("the way to end edge of the screen. JBS 0 ~porn 138s 

= Forty about pide cheractere. at the ecto 8 of, he screen. JBS 15-Apr-19 
- Continue gp on_edit JBS 1 

8 - atveys show s feohor (or r yhatever text it ms ye set to) in non-reverse 
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i 1-009 - Make the oi. of ay screen logic work on a VT100, which clears its 
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ie reel Satna Saesitearchcha cen) ns ibeotags 91:42:92 DISKSVMSMASTER:CEDT/SRCISCRALIN.BLI;1 "(15 


wrap flag only when a ch rector is printed. JBS 19-Apr-1982 


; 1! 

3 i 1 1-010 - pon hs 1583 message Lines an error occurs during select. 

s i ' 1-011 - “ "Yntroduced by edit 1-010. yt posutatves 

3 $¢ 1! 1-012 - Aga che or message leg to 458 she’ 3S ba gosul~ 1982 

ae 1! 1-015 - Ehenge the cate shecke ked i a ae \$3 Se Jul- 198 

3 © . 1! 1-016 - ge tacts e. ge 

; 665 65 1! 1-015 - fy fo new po Si gl 138 pene 982 R 
; $8 D066 1! 1-016 = Simplify fore the new Ait. upd 82 logic. is version always repaints lined 
; 6 D067 1! any changed Line. 

; 68 1 ! 1-017 = Remove unysed externa Frye mt hey EDTSSEMT LIT. JBS 05-Oct-1982 i 
3 § 00¢ } ! 1- 18 - Fix painting of cotein r nge., 14°? -0¢t-1982~ oF 
; DO : 1-019 - +} call to i .. : ne. 11-Oct- a! 
: § 0072 1 | 1081 = debug, NOTRUNCATE. mod TE pods, si " pritiew 

: ‘ ! 1- - De mo t- 

; 78 i +i 3 § a Fix the call to beat “CHWID. “jes 1 gaeen ites 

; 7 4 1! 1- - Add the pocgnd or ument ses sit 8 

; 75 5 1! 1-026 = Use SCR_EDIT_M JBS 28-0ct-1982 

3 £6 1! 1-025 - ve sure to orion 7 Neuen one character b fore the last character 

Pee 1! a line, so we yer ¢ ee t by the VT M utowrap. | + 10-Nov-1982 

s 7 1! 1 § 7 Set the final MINPOS t RTO ce CHMEINPUT’sS text won't have to be rewritten. JBS 02-Dec-1982 

: 79 1/4 - Change the handling of | of "EDTSSG SF. JBS 14-Dec-1982 

3 0 1:14 3 ~ Maintain and use SCR nAYPOS.. JBS 27-Dec-198 

3 1 eta = Don't erase to end of ep he f we do not ropetes the whole line. JBS we eogreres 

3 ¢ § 1 ! 1-050 = Put the most common cases of cherecter formatting in-line, to improve spee JBS 04-Jan-1983 

3 1:1 1 = Be sure the blob is peteves we 8 corres) stgeee, grtentes. JBS 21-Mar-1983. 

3 1:7 = Make sure we are in replace mod 1-Apr-1 

3 5 mee - Adjust the width of a tab if it. is 2 sro front re continued line. JBS 03-May-1983 

3 1 ! 1-034 = Fix bug where if the EOB marker displays in the last column of the 

3 1! screen, it was ot pa yhen we attempted to delete to end of Line 

3 1! The bug happened Bh edyanc ing to that Line without clearing the 

: 9 1! screen first. REM 12-Dec-1 
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FOTESCRAY bn - refresh a screen Line 


Declarations 


TINE 
ED TSSSC RF RELN : NOVALUE; 
In the routine 


TABLE OF CONTENTS: 
REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD R 


SBTTL "Declarations' 
EQUIRE "EDTSRC:EDTREQ’ 
NONE 
EQUATED SYMBOLS: 
NONE 
STORAGE 
NONE 
EXTERNAL REFERENCES 
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EDTSSCRRLIN DISSCRRLIN = refresh a screen Line 18-5¢ -1 142: VAX-11 Bliss-32 V4.0-74 P 4 oer 
¥00~000 EDTSESC RF RELN - refresh a Line on the screen 1 7330-1382 9:52:93 DLSKSVMSMASTERSCEDT SRCISCRRLIN.BLI:1°™ (3) 
$ } ZSBTTL "EDTSSSC_RFRELN = refresh a Line on the screen’ 
GL TI DTSSSC_RFRELN ( ! h i h 
seat tH NE E RFREL Refresh a Line on ; es 


reen 
; ecérogs of Line info being refreshed 
! 1 = Line has been erased 


F ASE 
: NOVALUE = 


wr 


leg 


FUNCTIONAL DESCRIPTION: 


Mur 


wn 


This routine refreshes a single Line on the screen. It expects EDT$$G_CS_LNO 
to be oe gcroen Line number to be refreshed. This Ay kig, oogretes only on 
the specified Line; it does not clear the screen after an CE0B), for example. 
FORMAL PARAMETERS: 
SCRPIR Pointer to the screen block for the Line being refreshed 
ERASED 1 = the Line has already been erased 
IMPLICIT INPUTS: 


EDT$$G_CS_LNO 
SEC_BUF 
SHF 


EDT$$G_T1_WID 


to sb 
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IMPLICIT OUTPUTS: 
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5 
ROUTINE VALUE: 
NONE 

074 SIDE EFFECTS: 
0741 
1h} Writes on the screen. 
' 
0744 - 
te BEGIN 
' 
hi 
074 EXTERNAL ROUTINE 
074 EDTSSFAT Ch : NOVALUE, ' Output a character 
07 ? EDTSSFMT_ CHWID ' Compute the width of a character 
07 EDTS SC_SHWBLOB : NOVALUE i Output a blob 
0752 EDTSS$SC_REVIDCHK : NOVALUE , ! Check for reverse video based on select region 


the ie EDT $350" ates the screen if: pep-1964 9}: $4: 3 bt Scsvme MSMA Baas MASTER ScLOT” SRCSSCRRLIN. BLI;1 yaee (33 


3 } DTSSSC_NONREV D : NOVALUE, ! Go to normal video. ‘ 
. % He St -Pose ato tae i Position the c cure | ‘ 
3 3 a 3b-ERA ionatges ! Erase to end of | ne ‘ 
:. 7 7 DT RAA Ms ! Erase to end of screen : 
3 } 7? at PAT te ' Print CE ‘ 
s } 7? DT TFT ! Output the format buffer : 
; ; f DT Seoursray aur masts ! Put the screen in replace mode : 
2 7 exTeRNM, : 
3 § 7? EDTSSA_EOB_SCRPTR : REF SCREEN_LINE, ! Special Line block for CEOB) ‘ 
. ¥ 7 DT$$G_CS_CNO ! current screen : 
. 9 7 DT SA7SEC. Bur, i Select buffer. : 
3 199 765 dT 6.34 ’ ! The number of columns shifted. : 
. 7 EDTS$G_TI_WID, ! Width of terminal Line. ‘ 
; 19 076 EDTSSA_WK-LN : REF LIN_BLOCK, ! Current Line pointer. ‘ 
: 198 07. EDTSSG_FMT_ ° ! Current column number : 
; 199 07 EDTSSA_CUR_BUF : REF TBCB_BLOCK, ! Pointer to current text control block ; 
; 200 0770 EDTSSA_FMT_C ! Pointer to next_char in output buffer : 
; 201 0771 EDTSST_FMT_ BUF’: BLOCK CCHSALLOCATION (EDTSSK_FMT_BUFLEN)), ! Output buffer ‘ 
3 0g 077 EDTS$G_PRV" ! The cursor column number : 
; 04 rte EDTS$G_INSERT_MODE; ! 1 = screen is in insert mode ; 
; ' : 
; 5 0775 MAP ; 
3 oS {44 SCRPTR : REF SCREEN_LINE; ¢ 
- ‘ ° 
; 208 077 LOCAL ; 
; 209 077 TXTPTR, : 
; 210 7 ORIG_TXTPTR, : 
; 211 0781 LEN : 
3 i 07 C : 
: 21 07 CHAR. WIDTH, : 
; 214 7 LEF : 
3 215 0785 FIRST_CHAR, : 
i gig 7 WIDTH i 
> 21 7 SIMPLE_CHAR, : 
: 18 07 MAXPOS; ‘ 
s i 07: : 
; 0 7 ¢ : 
3 ; tah j Mane sure we are in replace mode. : 
: 79 3 
3 $ Tas IF (.EDT$$G_INSERT_MODE NEQ 0) THEN EDTS$SC_REP_MODE (); : 
o + e 
; § 07’ '¢ : 
: 07 i Check for E0B. ; 
(8 tet ; 
; ' : 
3 IF (.SCRPTR EQLA .EDTSSA_EOB_SCRPTR) : 
3 1 1 THEN ‘ 
: § 4 HALT _POSCSIF a foress, CS_LNO, 0); : 
; EDTS$SC“NONREVI : 
; 235 5 EDTSSFMT_TEXT ( 3 : 


Hf (( NOT - ERASED) AND (.SCRPTR CSCR_EDIT_MAXPOS] EQL 255)) 
THEN ! If not erased and fot af end of the Line, 
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RFRELN = refresh a Tine on on the screen 1 “320-19 9}: $2: $3 DIS SKSVMGN TERS CED i SRCSSCRALIN. BLI;1 men (35 
BEGIN 
i! DISSSC_POSCSIF (.EDTS$G_CS_LNO, = (0, .EDTS$G_FMT_LNPOS = .EDTS$G_SHF)); 
EDTSSSCqERATOE OEOL ( j rs ase any extra characters that may 


hove been left on the screen's Line. 
END; 


1+ 
Mark the Line as finished with its edit. 


SCRPTR [SCR EDIT_MINEOS 55; 

SCRPTR [SCRTEDIT-MA . 

SCRPTR SCRTEDIT~ FLAGS en CSCR_EDIT_FLAGS] AND ( NOT (SCR_EDIT_MODIFY OR SCR_EDIT_INSLN)); 
END; 


'¢ 
i Not E0B. Position to the first character to be updated in the Line, 
i. keeping track of the screen column which it will occupy. 


LEFT = alae ac CSCR_CHR_FROM); 


LEN = (.SCRPTR rscr R-CHR_T ti 1, .EDTSS$A_WK_LN CLIN_LENGTH]) = .LEFT; 
TXTPTR = NougPLus ¢ EDTSSA. WK"LN CLIN’T XT], .CEFT); 

ORIG_TXTPTR = .TXTPTR; 

EDTSSG_FMT 


LNPOS = 0; 
CHAR = ~CHSRCHAR “A (TXTPTR); 


ae GEQ %X"20") AND (.CHAR LEQ %X'7E")) 


BEGIN 
CHAR WIDTH = 1; 
SIMPCE_CHAR = 1; 


BEGIN 
CHAR yg bh = _EDTSSFMT -CHWID (.CHAR, .EDTS$G_FMT_LNPOS); 
ital 


te 
Regie over unmodified characters on this Line. 


WHILE cst Tere - .ORIG_TXTPTR) LEQ »SCRPTR CSCR_EDIT_MINPOS]) AND ! 
(EDTS$$G_ FMT_LNPOS LSS (.WIDTH - .CHAR “wiotw - 1))) DO 
te BEGIN 
j Account for the blob at the front of continued Lines. 


Af 5 ¢-ED SSE FAT LMP OS EQL 0) AND (.SCRPTR CSCR_LINE_IDX] NEQ 0)) 
BEGIN 


djust for the blob at the front of a P, font faye line. This code requires 
hat the shift amount always be a multiple of 8, so that shifting doesn't 
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4 ! change tab stops. 


EDTSSG_FMT_LNPOS = .EDTSSG_SHF + 2; 
If _(.CHAR EQL ASC_K_TAB) 
HEN 


END; 
EDTS$ $$6_ FAT -LNPOS = .EDTSSG_FMT_LNPOS + .CHAR_WIDTH; 
CHAR = “CHSRCHAR _A (TXTPTR); 


Ron ~CHAR GEQ %X'20°) AND (.CHAR LEQ %X'7E')) 


BEGIN 
CHAR _WIDTH = 1; 
SIMPLE. CHAR = 1; 


BEGIN 
CHAR yiory = EDTSSFMT_CHWID (.CHAR, .EDTS$G_FMT_LNPOS); 
SIRPCE CN = 0; 


! Put the characters into the format buffer. 
FIRST_CHAR = 1; 
! If this is a continued Line, indicate this at the front of the Line. 


THEN” -SCRPTR CSCR_LINE_IDX] NEQ 0) AND (.EDTSSG_FMT_LNPOS EQL 0)) 


bTS86 FMT _LNPOS = .EDT$$G_S 

Rie Cee he (.EDT$$G6_CS stb. -EDTSS$G_FMT_LNPOS - .EDTS$G_SHF); 

LEDTSSA. SEL_BUF EQL .EDTS$A_CUR_BUF) : 

EDTSSSC_REVIDCHK (CHSDIFF (.TXTPTR, CHSPTR (EDTSSA_WK_LN CLIN_TEXTJ)) = 1); 


$$SC_SHWBLOB () 
TSSFMT_CH (3C° 5; 
¥ 
N 


CHAR EQL ASC_K_TAB) 


Dr 
EDT 
FIRS 
IF 
TH 


== 


E 
EDT 
EDT 
IF 
TH 


E 
BEGIN 
CHAR_WIDTH = .CHAR_WIDTH = 2; 


en ea oe 
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he ts OT 3s RFRELN = refresh a Line on the screen 12-80 8- 1382 94:32:93 STEKSUMGHASTERSCEDT SRCISCRRLIN.BLI:1°%" (38 
4 


ASSERT (.CHAR_WIDTH EQL 6); 
END; 


IF (.EDTSSA_FMT_CUR EQLA CHSPTR (EDTSST_FMT_BUF, EDTSSK_FMT_BUFLEN) ) 


os 


t 

$ 

388 355 
3 9 § ; 
: 9 END; ; 
; : $ _. MAXPOS = .SCRPTR CSCR_EDIT_MAXPOS); 3 
; ; i This is the loop that actually puts characters into the format buffer for output to the screen. ; 
: 4 § ;_The time around this loop is critical to EDT's performance in screen mode. : 
; 935 WHILE ((.LEN GTR 0) AND FS A FAT LNPOS LSS (.WIDTH = .CHAR_WIDTH)) AND ! ; 
3 9 ((.TXTPTR = .ORIG_TXTPTR = 13 LEG .MAXPOS)) DO : 
: > BEGIN : 
; 333 4 IF _(-EDTS$A_SEL_BUF EQL .EDTS$A_CUR_BUF) ! ; 
; 941 ; EDTSSSC_REVIDCHK (CHSDIFF (.TXTPTR, CHSPTR (EDTS$A_WK_LN CLIN_TEXT])) = 1); 3 
; 943 4 IF (.EDTS$G_FMT_LNPOS GEQ .EDTS$G_SHF) ; 
; 944 3 HEN ; 
; 945 4 BEGIN ; 
3 946 4 : 
; 947 & IF_.FIRST_CHAR ; 
; 48 4 THEN : 
: 949 : BEGIN ; 
; 950 EDTSS$SC A yw (.EDTS$G_CS_LNO, .EDTSSG_FMT_LNPOS - .EDTS$G_SHF); : 
; 951 5 FIRST_CRAR = 0; ; 
3 826 & ; : 
; 53 4 : 
; 954 4 !+ 3 
; 385 55 4 ! Put the character in the format buffer. ’ 
: ¥] 328 2 Do simple characters in-line; call EDTSSFMT_CH for complex characters. ; 
: 3B 958 4 ; 
; 389 59 4 IF _.SIMPLE_CHAR 

; 390 0 4 THEN 

; 391 961 BEGIN 

3 9 96¢ EDTSSG_FMT_LNPOS = .EDTS$G_FMT_LNPOS + 1; 

; 96 

: 394 2 

; 395 THEN 

: 38 6 i. BEGIN 

; 38 é ; We have reached the end of the buffer; empty it. 

; 400 6 

; 401 6 LOCAL 

; é § 3 SAV_LNPOS; 

> 404 A SAV_LNPOS = .EDT$$G_FMT_LNPOS; 

; 405 6 EDTSSOUT FMIBUF (); 

; 4 EDT$$G_FAT_LNPOS = .SAV_LNPOS; 

: 2 ND; 

; 409 CHSWCHAR_A (.CHAR, EDTSSA_FMT_CUR); 
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IF (.EDTS$G_PRV_COL NEQ (.EDTS$G_TI_WID = 1)) THEN EDT$$G_PRV_COL = .EDTS$$G_PRV_COL + 1; 
END 
ELSE 
EDTSSFMT_CH (.CHAR); 
END 
ELSE 
EDTS$G_FMT_LNPOS = .EDTSS$G_FMT_LNPOS + .CHAR_WIDTH; 


LEN = .LEN 
CHAR = eae cHAR _A (TXTPTR); 


IF ((. CHAR GEQ %X"20') AND (.CHAR LEQ %X'7E")) 


La 


zr 
Tew 
Daz 
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EDTSSFMT CH (, CHAR); 
LEN = .LEN - 1; 
END 


. 24 
4 s | 
4 
4 4 
4 24 
; 4 
4 4 
; a oh 
gs | 
4 ae, 
4 | 
4 gs.) 
; THEN : ‘ 
; BEGIN ; | 
H CHAR gp S ar . 4 
; SIMPCE_CHAR = 1; : 
; : ELSE ‘ 
; 1 CHAR ek = EDTSSFMT_CHWID (.CHAR, .EDTSSG_FMT_LNPOS); - 4 
; 1 SIMPCE_ = 0; - 
3 1 END; - 4 
: 48 i END - 
3; 437 1 - 4 
; 438 1 1+ ik 
; 439 1 ' If we have not finished the Line, it mey be because the Line won't fit on the screen. e 4 
; 440 1 ! Since the loop above stops one column short of the right edge of the screen, there - 4 
; 441 1 i may be just room for one more character; if so, put it out. If not, put a blob in the = { 
3; 44 1 ' Last column. . § 
: ita ws a 
3; 445 1 IF ((.LEN GTR 0) AND ((.TXTPTR = .ORIG_TXTPTR - 1) LEQ .MAXPOS)) es 4 
3 rr 1 THEN . 4 
3 ret : BEGIN : 
: 449 1 IF i LEN EQL 1) AND (.EDTS$G_FMT anit EQL (.WIDTH - .CHAR_WIDTH)) AND ! e 4 
: 450 1 (,EDTSSG_FMT_LNPOS GEQ .EBTS$6_S - 4 
s $31 1 THEN - 4 
3 £28 ' BEGIN : 
3 $28 \ IF (.EDTSSA_SEL_BUF EQL .EDTSS$A_CUR_BUF) ! : 
; $38 ‘ EDTSSSC_REVIDCHK (CHSDIFF (.TXTPTR, CHSPTR (EDTSSA_WK_LN CLIN_TEXT])) = 1); - 4 
: e 4 
3 $28 1 IF .FIRST_CHAR > 4 
3; 45 1 THEN £8 
; 460 1 BEGIN s | 
3; 461 1 EDTS$SC poscsir (.EDTS$G_CS_LNO, .EDTSS$G_FMT_LNPOS - .EDTS$G_SHF); a 4 
: 186 1 FIRST_CRAR = 0; a4 
3; 46 1 3 - | 
; 464 1 4 
3; 465 1 a4 
3 1 e 4 
3 1 s 
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84000 EDTSeSC RFRELN - refresh a Line on the screen 12-8681 882 93:52:48 DESKSVMEMASTERSCEDT  SRCSCRRLIN.BLIs1 J V04: 
; 46 1 ELSE ; | 
on sEcIN ‘| 
: 471 1041 5§ IF (( NOT .ERASED) AND (.SCRPTR CSCR_EDIT_MAXPOS) EQL 255)) s 
: 208 1908 § THEN BEGIN 4 
; 4674 1044 EDTSSSC_POSCSIF (,fOTSS6_CS_LNO, MAX (0, .EDTSSG_FMT_LNPOS - .EDTSS$G_SHF)); z. 4 
: 475 1045 EDTSSSC_ERATOEOL (); + 4 
3 $78 1 rk] 4 END; + 4 
; «47 1047 4 ae 
3 $f8 1 rh: 4 !+ 4 
; 47 1049 4 ! If there is fee left on the Line, it may be thes we have printed no characters. 4 
; ret } 2 ? ! Therefore, print a space to be sure that the VT100's autowrap flag is not set. : 
: 48 1 4 3 
; aa i ? IF (.EDTSSG_FMT_LNPOS LSS (.EDTS$G_TI_WID - 1)) THEN EDTSSFMT_CH (%C° '); : 
: 485 1055 4 EDTSSSC_POSCSIF (.EDTS$G_CS_LNO, .EDTS$G_TI_WID = 1); - 4 
3 $36 1936 4 EDTSSSC_SHWBLOB (); | 
; 48 105 END; : 4 
: 489 1059 END ‘4 
; 490 1060 '¢ ee 
: 491 1061 ! Throw in an erase to end of Line sequence if we have painted as close as we can to the right margin. - 4 
3 re 1006 : Suppress the sequence if we have just put a character at the right margin or if the Line is already erased ‘ 
3 494 1064 ELSE ; | 
: 495 1065 4 
; 49 1998 IF ((€ NOT .ERASED) AND (.SCRPTR CSCR_EDIT_MAXPOS] EQL 255)) ae | 
; 49 106 THEN a 4 
3 rh 1308 BEGIN ; 
: 304 Hh 1A IF .FIRST_CHAR THEN EDTSS$SC_POSCSIF (.EDTS$G_CS_LNO, MAX (0, .EDTSSG_FMT_LNPOS - .EDTS$G_SHF)); : 
3 308 1972 EDTSS$SC_ERATOEOL (); 4 
s 107 END; | 
; 505 1075 '¢ : 4 
3 208 1976 } Mark the Line as finished with its edit. : 
; 508 1078 2  SCRPTR CSCR_EDIT_MINPOS) = MIN (.SCRPTR CSCR_CHR_TOJ - .SCRPTR CSCR_CHR_FROM) + 1, 255); 4 
; 209 1073 SCRPTR CSCR-EDIT-MAXPOS) = 0; s | 
; 510 1080 SCRPTR CSCR_EDIT_FLAGSJ = .SCRPTR CSCR_EDIT_FLAGS] AND ( NOT (SCR_EDIT_MODIFY OR SCR_EDIT_INSLN)); | 
3 St 1081 1 END; ! of routine EDTS$$SC_RFRELA s | 
- | 
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.EXTRN EDTSSFMT_CH, EDTSSFMT_CHWID . 4 

SEXTRN EDTSSSC_SHWALOB Zz 

eEXTRN EDTSSSC_REVIDCHK - | 

-EXTRN EDTSSSC_NONREVID 3 

eEXTRN Ak tty a Ta 

-EXTRN EDTSSSC_ERATOEOL a 

-EXTRN EDTSSSC_ERAALL, EDTSSFMT_TEXT | 
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the EDrsase. eae RA yy AY. the screen 1$-fep-1964 93: 36: 3 DISK SVMGHA AST ERSCLDT OSRCISCRRLIN. BLI;1 weet AB 


D7 0008C DECL RO : 
50 000000006 b9 p f CaP DTSS6_ FMT_LNPOS, RO : 
000000006 09 p C TSTL DT$$G_FMT_LNPOS ; 0861 
og ha 98 dooce oye (RG) : 
1 D BEQL : 
ADDL3 #2, EDT$$G_SHF, EDTS$G_FMT_LNPOS : 
000000006 00 000000006 ci bg ADDLS eae E 138 $ T$$ 08 9 
F 1 E BNEQ : 
5 C E SUBL2 CHAR_WIDTH + 0874 
6 p OE8 cMPL ie WIDTH, #6 + 0875 
00000006 F ED CALL EDTSSINTER_ERR : 
bo0000006 4 2 8 ore 7$ ADDL CHAR WIDTH, EDTSSC_FMT_LNPOS : 0880 
59 ; BA Sore 8$ MOVZBL (TXTPTR)+, CHAR + 0882 
20 D1 91 CMPL HAR, #32 + 0884 
F 19 001 BLSS : 
0000007E 8F 9 D1 10 CMPL HAR, #126 : 
6 14 0010C BGTR $ : 
55 1 06 0108 MOVL Ae CHAR_WIDTH + 0887 
ad OOF botta «+ al! Anaaialhteraeee : Opec 
5 01 D O116 9$: MOVL #1, FIRST_CHAR + 0901 
08 A& 95 0011 TSTB = B(R4) + 0906 
70 13 0011C BEQL 118 : 
000000006 09 D5 OO11E TSTL itgees- FMT_LNPOS ; 
68 12 00124 BNEG 1$ : 
50 000000006 90 D0 00126 MOVL  EDTS$G RO + 0909 
000000006 00 DO 00120 MOVL RO, EoTsse, FMT_LNPOS ; 
7E 000000006 00 50 ¢3 001 SUBL3. R EDTS$G-F FMT -[NPOS, -(SP) + 0910 
000000006 00 Dd 001 PUSHL EDTS ; 
000000006 00 08 FB 14 CALLS #2 Parsee” _POSCSIF ; 
D4 0014 CLRL  FIRST_CHAR : 0911 
000000006 00 000000006 0 D| 148 CPL EDISSA_ SEL_BUF, EDTS$$A_CUR_BUF : 0913 
50 52 000000096 0 c§ ij SUBLS | EDTSSA_ WK_LN, TXTPTR, RO + 0915 
900000006 99 1 FB 0016 CALLS #1, EDT$$SC_REVIDCHK ; 
G F A 108: ALLS @# $C“ SHWBLOB ; 
0000000 B OO16A 108 CALLS EDT$$SC~SHWB 0917 
DD 00171 PUSHL #32 : 0918 
LL _CH ; 
000000006 00 1 FB 00173 CALLS #1, EDTSSFMT_C 
9 9 ? 17A CMPL HAR, #9 : 0920 
F 17D BNEG ; 
55 2 C2 0017F SUBL2 #2, CHAR_WIDTH : 0923 
06 3 b| CPL CHAR WIDTH, #6 ; 0924 
000000006 90 86 FB 001 CALLS rv, FOTSSINTER ERR ; 
A 0c Ad 9A OO1BE 118 MOVZBL (r4), MAXPOS™ ; 9929 
8 DS 00192 12$ ST LEN > 0935 
14 001 BGTR s ; 
ooF8 3 198 13$: BRW 23$ ; 
50 53 C3 00199 14$:  SUBL3  CHAR_WIDTH, WIDTH, RO : 
0 000000006 6 p 19D CMPL FDTSSG_ FMT_LNPOS, RO ; 
F 1A4 BGEQ 3 
50 52 C3 001A6 SUBL3 ORIG_TXTPTR, TXTPTR, RO + 0936 
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EDTSSCRRLIN DISSCRALIN = refresh a screen Line 16-5 Sep-1 VAX-11 Bliss-32 V 3 
104-000 EDTSESC RFRELN - refresh a line on the screen 1 7300-1382 9}: 36: 3 DISK $VMSK TER: ceo + SRCISCRALIN. BLI;1 sree Ry 

5 D7 QO1AA DECL = : ; 

. a Seine Rg Matos : 7 

000000006 00 000000006 6 i 181 cmPL EDISSA_ SEL_BUF, EDTS$A_CUR_BUF + 0939 : 

50 52 000000096 0 § 18 SUBL3. EDTS$A_WK_LN, TXTPTR, RO ; 0941 : 

FB AO OF OOIC PUSHAB -8(RO)~ : ; 

000000006 00 1 FB 001C CALLS #1 EDTSS $$SC_REVIDCHK : : 

1 900000006 DO 00100 158:  MOVL  EDTS$G_FMT_CNPOS, R1 ; 0943 ; 

p G D0 001D MOVL  EDTS$G- WF RO : : 

D1 001D CMPL «61, R : : 

19 QO1E BLss «198 : : 

13 E9 OO1E BLBC_ FIRST CHAR, 168 ; 0947 : 

7E 51 C3 001E6 SUBL3 RO, RT, (Sp) ; 0950 : 

000000006 DD OO1EA PUSHL EDTS$G_ Gs ; : 

000000006 00 FB OO1FO CALLS #2, EDTSSSC P _POSCSIF : : 

D4 OO1F CLRL. = FARST_CHAR ~ ; 0951 : 

E9 OO1F9 16$:  BLBC SIMPLE CHAR wigs : 0959 ; 

* 990 990006 0 D6 OO1F INCL EDTSS$G-FMT : 0962 : 

8 G 9 020 MOVAB EDTSST_FMT BUS 2, RO : 0964 : 

000000006 9 D1 90¢¢ CPL EDISSAq FMT-CUR, R ; : 

56 000000006 00 00 6 12 MOVL EDTSSG EMT LNPOS. SAV_LNPOS ; 0974 : 

000000006 00 0 F 1 CALLS #0, EDTSSOOT_FMTéUF : 0975 : 

000000006 00 BO 00¢20 MOVL § SAV_LNPOS EDTSSG-FMT _LNPOS : 0976 : 

6 000000006 g p 0 17$: MOVL EDTSSA FMT_CUR, RO : 0979 ; 

MOVB CHA RO) 3 : 

000000006 00 06 0231 INCL EDTSSA EM T_CUR ; : 

50 000000006 Q oi C3 00237 SUBL3 eDTss67 TI _wID : 0981 ; 

0 000000006 00 01 0023F CMPL tots G_PRV~COL, RO ; : 

1A 13 00 46 BEQL ; : 

000000006 00 06 0 4 INCL EDTS$G_PRV_COL ; : 

12 11 0024 BRB 0$ : 0959 ; 

59 DD 00250 188 PUSHL CHAR ; 0985 ; 

000000006 00 1 fe 0 3 CALLS #1, EDTSSFMT_CH ; : 

7 11 00 BRB : 0943 F 

000000006 00 5 cg 0 38 19$ ADDL2 CHAR_WIDTH, EDTS$$G_FMT_LNPOS : 0989 ; 

5B OD 62 20$ DECL N : 0991 3 

59 8 9A 00264 MOVZBL (TXTPTR)+, CHAR : 0992 : 

20 01 9 67 CMPL HAR, #32 ; 0994 ; 

11 19 0026A BLSS ; ; 

0000007E 8F 59 D1 00 $ cHPL CHAR, #126 ; F 

8 14 00 BGTR 1$ 3 3 

55 1 09 f MOVL AT, CHAR WIDTH ; 0997 3 

1D MOVL SIMPCE_CHAR : 0998 ; 

14 11 00278 BRB : 0994 ; 

000000006 99 pp f 218: PUSHL EDTS$G_FMT_LNPOS : 1002 ; 

000000006 90 E CALLS i, E EDTSSFMT CHWID ; ; 

D C MOVL Wid ; ; 

, F GURL SIAPL E CRA AR i 100 ; 

FEFE 31 1 338: BRwW ; 09 F 

38 5 $: TSTL : 101 3 

03 14 36 BGTR ; ; 

0008 gus: BRwW $ ; ; 

50 52 of C 98 25$:  SUBL3 ORIG_TXTPTR, TXTPTR, RO ; F 

D OF DECL RO ; : 
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AG BGTR 2 
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CMPL EDtssc_ FMT_LNPOS, ED1$$G_SHF 
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T_CHAR, 35$ 
$6_SHF. EDTSS$G_FMT_LNPOS, RO 
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5$: CALLS 
6$: MOVZBL 
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$bus860 EDT EeSe hk Rein’ ee fe BB ey Ay the screen 


Li Sep 1904 01:42:28 


AX-11 
1SK$V 
R 
OQOOOOOFF &8F e qi, cn #255 
50 F hy aceG 123s RO 
08 AG 0 5 itt : MOVE {rch 
C Ab O3FF oF 8$: BI Cw2 ; 62 TRG) 
Routine Size: 975 bytes Routine Base: _EDTSCODE + 0000 


: 518 


1085 : ! <BLF /PAGE> 


3} 


memASTERSCEDT Ske 


SRCJSCRRLIN.BLI; age 


F 11 
+ he + ahaa EDTsase Haus "= teirsel'b tles on the screen 12236871382 93: $8: 3 DL aKSVMGHAS! eRsce Ebi’ sae SCRRLIN.BLI; aes aS 


Lexemes/CPU-Min: 
Memor ry ut Used: 246 aad 
Compilation Complete 


: 318 1085 ! END ! of module EDTSSCRALIN 

: 51 1 0 ELUDOM 

3 PSECT SUMMARY 

; Name Bytes Attributes 

: _EDTSCODE 975 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 

: eocecece Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

; _$25S$DUA28: (EDT. SRCJEDT.L32;1 377 48 1 4 0:00.2 

3 mitt F EDT. SRCIPSECTS.L32;1 2 1 36 : $3 :90:4 

3 COMMAND QUALIFIERS 

; PLESS/CHECR OCP IELD, INITIAL OPT IALEE) /HOTRACEBACE/L ISe4, 598: SCRRL IN/0BJ90BJS: SCARL IM MSRC$:SCRRLIN.BLI/UPDATE=(ENHS$:SCRRLIN 
3; Size: 975 a 5 0 data bytes 

3; Run Time: 

; Elapsed Time: ga 

3; Lines/CPuU Min: 
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